home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / HISTORY.TXT < prev    next >
Text File  |  1993-11-11  |  2KB  |  65 lines
  1. \MOVE 'HISTORY' TO CURRENT_TOPIC\MOVE 270 TO LASTY_WHERE
  2. \CALL SET_STANDARD_ONKEYS\MOVE 23 TO TUBE_COLORS
  3. \X OPEN_SCRN\ON KEY PG_UP\ON KEY PG_DN JUMP GOSUB5\X TAG16000\IF CURR_PG>16990 OR CURR_PG<16000\MOVE 16000 TO CURR_PG\ENDIF
  4. \MOVE 16100 TO CURR_PG
  5. \MOVE 040 TO Q\MOVE 220 TO R\MOVE 700 TO S\MOVE 654 TO T\MOVE 12 TO U\CALLM TUBE_BOX
  6. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  7. \MOVE 1 TO MODULE_SIX
  8. \LOC 40,220\WID 660 DOT\OVER 0,A,44,23
  9. \"
  10.         Archimedes Screw.
  11. \"
  12.         Ctesibian Pump.
  13. \"
  14.         Tympanum Drum.
  15. \"
  16.         Other early pumps.
  17. \"
  18.         The Dutch Pumps.
  19. \"
  20.         Some famous pumps.
  21. \"
  22.         Extra! The invention of
  23.                     the ball bearing.
  24. \LOC 120,220\WIDTH 30 DOTS
  25. \"
  26. 1.
  27. \"
  28. 2.
  29. \"
  30. 3.
  31. \"
  32. 4.
  33. \"
  34. 5.
  35. \"
  36. 6.
  37. \"
  38. 7.
  39. \MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
  40. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  41. \LOC 340,674\OVER 1,A,57,23\WIDTH 240 DOTS
  42.  Choose one...
  43. \IF DEMO_MODE='YES'
  44. \MOVE 750 TO Q\MOVE 300 TO R\MOVE 990 TO S\MOVE 416 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 750,300\OVER 1,A,60,23
  45. (These options are not available in this demo.)
  46. \ENDIF
  47. \CALLM WAITBOX
  48. \MOUSE FRAME=0,3 W=67,270,67,624 A=0,1 L=47,LASTY_WHERE R=-1\MOVE E TO CURR_SUBLEVEL\MOVE CURR_SUBLEVEL TO LASTY_WHERE
  49. \X GOSUB5\CALLM WAITOFF
  50. \IF CURR_SUBLEVEL<300\MOVE 'HOW_ARCH' TO TEXT_FLNM\ELSE
  51. \IF CURR_SUBLEVEL<358\MOVE 'HOW_CTES' TO TEXT_FLNM\ELSE
  52. \IF CURR_SUBLEVEL<416\MOVE 'HOW_TYMP' TO TEXT_FLNM\ELSE
  53. \IF CURR_SUBLEVEL<474\MOVE 'HOW_EARL' TO TEXT_FLNM\ELSE
  54. \IF CURR_SUBLEVEL<532\MOVE 'HOW_DUTC' TO TEXT_FLNM\ELSE
  55. \IF CURR_SUBLEVEL<600\MOVE 'HOW_FAMO' TO TEXT_FLNM\ELSE
  56. \MOVE 'HOW_BALL' TO TEXT_FLNM\ENDIF
  57. \MOVE 40 TO Q\MOVE 170 TO R\MOVE 590 TO S\MOVE 680 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF\CALLM NEW_TUBE_BOX
  58. \IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ENDIF
  59. \CALLM RD_TXT\JUMP MAINPAGE
  60. \X  MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  61. \X ALT_QUITED\ON ERROR\END
  62. \X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
  63. \X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
  64. \X GLOSSARY\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT
  65.